-- card: 24636 from stack: in.03 еее
-- bmap block id: 14015
-- flags: 0000
-- background id: 2766
-- name: 
----- HyperTalk script -----
on openCard
  global ladderPit
  if ladderPit
  then set the loc of card button "ladder" to 45,208
else set the loc of card button "ladder" to 149,127
send cardOpened to background
end openCard

on move
  global direction,chase,blasting,ladderPit,causeOfDeath
  if direction = "east" or direction = "up" then
    go card id 24153
    exit move
  end if
  if direction = "down" then
    if ladderPit then
      go to card id 25762
      exit move
    else
      answer "Do you really want to go into the pit?" with "yes"or"no"
      if it is "no" then exit move
      put "pit1" into causeOfDeath
      go to card id 3409
      exit move
    end if
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
end closeCard

on take
  global object,carried,ladderPit,cardID,prevID
  put last word of object into obj
  delete first char of obj
  delete last char of obj
  if obj="ladder" then
    hide object
    set the loc of object to 149,127
    put false into ladderPit
    put cardID into prevID
  end if
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried
  answer "Drop object in this room, or into the pit?" with "pit" or "room"
  if it="pit" then put 7465 into dropRoom
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried,ladderPit
  put last word of object into obj
  delete first char of obj
  delete last char of obj
  if obj="ladder" then
    show object
    set the loc of object to 123,147
    set the loc of object to 97,167
    set the loc of object to 71,187
    set the loc of object to 45,208
    put true into ladderPit
    put "The rope ladder is tied to the pitons and leads into the pit." into field 3
    exit use
  end if
  -- update carried if object lost (or do so in inv. card button)
  pass use
end use





-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=230 right=266 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=89 top=230 right=266 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=96 top=96 right=132 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=211 top=221 right=257 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=166 top=164 right=200 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=198 top=66 right=146 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a stairway leading east and up" into field 3
    put false into examFlag
  else
    put "east" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=3 top=195 right=217 bottom=86
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "A bottomless pit.  Looks unsafe to climb into." into field 3
    put false into examFlag
  else
    put "down" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=132 top=109 right=145 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----

on mouseUp
  global takeFlag,examFlag,object,cardID,ladderPit,direction
  put the name of the target into object
  if takeFlag = true then
    send take to card id cardID
  else
    put "a rope ladder" into field 3
    put false into examFlag
  end if
  if ladderPit then
    put "down" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=52 top=5 right=96 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID
  if takeFlag then
    put "Take the wall??  Get real." into field 3
    put false into takeFlag
  else
    put "A magnificent orange flowstone wall" into field 3
    put false into examFlag
  end if
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=30 top=183 right=195 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID
  if takeFlag then
    put "Can't take the pitons. They are solidly in place." into field 3
    put false into takeFlag
  else
    put "Two pitons imbedded in the stone" into field 3
    put false into examFlag
  end if
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=20 top=217 right=249 bottom=69
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part contents for background part 25
----- text -----
Bottomless Pit Room
(looking north)

-- part contents for background part 24
----- text -----
You are in the bottomless pit room.  Stone stairs lead upward to the east.  There is a dark, smooth-walled pit here, the bottom of which you can not see.  A cold wind is whistling out of the pit with an almost deafening sound.  The north wall of the room is a magnificent sheet of orange flowstone.

-- part contents for background part 36
----- text -----
1